home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Pascal V7.0 / DOCDEMO.ZIP / RESOURC1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-30  |  1.3 KB  |  55 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision 2.0 Demo                        }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program Resourc1;
  9.  
  10. uses Drivers, Objects, Views, App, Menus;
  11.  
  12. type
  13.   PHaltStream = ^THaltStream;
  14.   THaltStream = object(TBufStream)
  15.     procedure Error(Code, Info: Integer); virtual;
  16.   end;
  17.  
  18. const cmNewDlg = 1001;
  19. var
  20.   MyRez: TResourceFile;
  21.   MyStrm: PHaltStream;
  22.  
  23. procedure THaltStream.Error(Code, Info: Integer);
  24. begin
  25.   Writeln('Stream error: ', Code, ' (',Info,')');
  26.   Halt(1);
  27. end;
  28.  
  29. procedure CreateStatusLine;
  30. var
  31.   R: TRect;
  32.   StatusLine: PStatusLine;
  33. begin
  34.   R.Assign(0, 24, 80, 25);
  35.   StatusLine := New(PStatusLine, Init(R,
  36.     NewStatusDef(0, $FFFF,
  37.       NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
  38.       NewStatusKey('~F3~ Open', kbF3, cmNewDlg,
  39.       NewStatusKey('~F5~ Zoom', kbF5, cmZoom,
  40.       NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose,
  41.       nil)))),
  42.     nil)
  43.   ));
  44.   MyRez.Put(StatusLine, 'Waldo');
  45.   Dispose(StatusLine, Done);
  46. end;
  47.  
  48. begin
  49.   MyStrm := New(PHaltStream, Init('MY.TVR', stCreate, 1024));
  50.   MyRez.Init(MyStrm);
  51.   RegisterType(RStatusLine);
  52.   CreateStatusLine;
  53.   MyRez.Done;
  54. end.
  55.